


HEWLETT-PACKARD 


HP-71 to HP 3000 and HP 1000 


File Transfers 





Summary 


This application note provides an 
example of how to transfer text files 
between the HP-71 Handheld 
Computer and the HP 3000 and 
HP 1000 computers, and also 
provides dumb terminal capabilities 
to nearly any host computer. Files 
can be transferred either from the 
HP-71 to the host, or from the host 
to the HP-71. The procedure 
described does not require any 
special program on the host, but 
instead relies on the host's editor to 
perform the transfers. 

The file transfer capability 
described in this note makes the 
HP-71 a simple solution to remote 
data capture applications involving 
an HP 3000 or HP 1000 host. The 
HP 82164A HP-IL/RS-232C Interface 
is used to connect to a terminal port 
on the host computer. 

A program listing is included 
which will provide the following 
functions: 


# Automatic assignment of the 
HP-IL. 


@ Interactive configuration of the 
HP 82164A HP-IL/RS5-232C 
converter. 


@ Use of a data file to “remember” 
the communications protocol. 


# “Dumb” terminal emulation. 


@ Text file upload to a host HP 3000 
or HP 1000 computer. 


@ Text file download from a host 
HP 3000 or HP 1000 computer. 

# Optional printer logging of all 
communications. 


Equipment 


Required: 

HP-71 Handheld Computer 

HP 82164A HP-IL/RS-232C 
Interface 

HP-IL cables 

HP 82401A HP-IL Interface 


Optional: 


HP-IL Video Interface with monitor 
HP-IL Printer 





Operation 


1. Connect all HP-IL peripherals 


and turn them on. Load the BASIC 
program listed in this note into an 
HP-71 file called "TERMHP71’. Type: 
run TERMHP71 

After the program has assigned 
the HP-IL, it will clear the display, 
and then display “HP71 file transfer”. 


2. If the program has not been 
executed previously, it will ask you 
to “Set Configuration.” The com- 
munications protocol configuration 
is stored ina BASIC data file called 
“CONFGCOM”. If this file does not 
exist, or does not contain proper 
data, the program will require you 
to specify the following parameters: 
™ Host Computer. This tells the 
program which host (either 
HP 3000 or HP 1000) it will be 
communicating with. The pro- 
gram will display “Host: 1000 or 
3000”. Pressing either 1 or 3 will 
select the HP 1000 or the HP 3000 
respectively. 


# Baud Rate. This is the data 
communications speed (in bits 
per second). The HP-71 will 
display “Select Baud Rate” and 
then display “Baud: 300 1200 2400 
4800 9600”. Pressing the first digit 
associated with any of the five 
choices will select that rate. 

= Parity. This specifies the type of 
error detection used, if any. The 
HP-71 will first display “Select 
Parity”, then “Parity: Even Odd 0 





1 None”. Pressing the upper-case 
letter associated with one of the 
five choices will select that parity. 


Software Protocol. This selects 
the type of software handshake 
the host computer expects to see 
from the terminal port being 
used. The HP-71 will display 
“Select Protocol”, then “Xon/Xoff 
Enq/Ack Both None All”. Press- 
ing the upper-case letter 
associated with one of the five 
choices will select that protocol. 
Selecting the “Xon/Xoff” protocol 
is the same as pressing 
and [Q] to stop and start 
data transmission from the host. 
The “Eng/Ack” is a transmitter 
protocol with no prompt 
character observed. The “Both” 
option selects both Xon/Xoff and 
Eng/Ack with no prompt charac- 
ter, while the “All” option 
specifies Xon/Xoff and Enq/Ack 
with a prompt character. See the 
“Protocol Explanation” section of 
this note for a complete descrip- 
tion of each of these protocols. 


To communicate with an 
HP 3000, select the “All” option. 
To communicate with an HP 1000, 
select the “Both” option. To 
communicate with other hosts, 
select from the other options 
which are available. 


All of these parameters can 
vary between different host 
computers, and even between 
different ports of the same host. 
As a general guide, select the 
highest baud rate the host port 
will support. 


If you are unsure of the 
required parity, select the “None” 
option. For the files to upload 
properly, it is essential that the 
proper software protocol be 
selected. 

Pressing [f1]while in terminal 
mode will return you to these 
configuration menus, allowing 
you to change the parameters “on 
the fly.” 


3. After the configuration has been 
set, the HP-71 will display “Terminal 
1000 Ready .. .” or “Terminal 3000 
Ready. . .” Atthis point, the HP-71 
is acting as a dumb terminal. Any 
characters pressed on the keyboard 
will be transmitted, and any charac- 
ters received from the host will be 
displayed. Pressing 
usually gets the attention of the 
host, and causes it to send you a 
request to log on. If you experience 
problems either in receiving the 
log-on message or in logging on, 
carefully review the communica- 
tions protocol you have specified. 
4. After you have logged on, you 
can initiate the file upload operation 
by pressing The program will 
then prompt you with: “HP-71 
Source File:”. Key in the name of the 
HP-71 text file you wish to send to 
the host, and press The 
program will then prompt you with: 
“3000 Destination Name:” or “1000 
Destination Name:”. Key in the 
name you want the file stored under 
on the host. This file MUST NOT 
already exist on the host. The 
program will display the messages 
it receives from the host as it calls 
the editor, sends the file, keeps the 
file, and exits the editor. 


5. The file download operation can 
be initiated by pressing The 
program will prompt you for: 


“HP-71 Destination File:”. Key in the 
name of the HP-71 text file you wish 
to store the data into, and press 
The program will then 
prompt you for either “1000 Source 
Name?” or “3000 Source Name?” 
Key in the name of the file on the 
host which you want to download 
and press The program 
will display all the messages it 
receives from the host as it runs the 
editor. 


6. When the program is waiting for 
a response from the host in either 
the upload or download routines, 
you can abort the transfer operation 
and return to the terminal level by 
pressing (f4Jon the HP-71. This isa 
way out if you specify a bad host file 
name, or receive some other error 
message from the host. 





Selected Commands 


In addition to the [ft through 
keystrokes, the following command 
keys are also defined: 

Toggles the printer either on or 

off. 

Toggles between the LCD on the 

HP-71 and the video interface on 

HP-IL. 

Sends a BREAK to the host. 

All other keys on the alphanumeric 
keypad are transmitted to the host. 





Protocol Explanation 


This section provides a brief 
explanation of how each of the 
different protocol options function, 
and an explanation of how the 
HP 3000 Editor, and EDIT 1000 
expect the terminal to behave. 


The XON/XOFF protocol is called a 
“receiver” protocol. The computer 
receiving data can halt the data 
transmission by transmitting an 
XOFF character, and can resume 
transmission by sending an XON 


character to the computer which is 
sending data. Many people have 
used this handshake manually from 
the keyboard without realizing that 
it is the same as Xon/Xoff. 


The ENQ/ACK’ protocol is called a 
“transmitter” protocol. The compu- 
ter which is transmitting data must 
initiate the handshake by sending 
an ENQ (enquire) character after 
each “block” of data. The computer 
which is receiving data will respond 
with an ACK (acknowledge) charac- 
ter when it is ready for more data. 

The ‘All’ option enables the 
HP 82164A HP-IL/RS-232C Interface 
to observe the Xon/Xoff handshake, 
Enq/Ack handshake, and a prompt 
character. After receiving a line of 
data, the HP 3000 will send a prompt 
character to the terminal when it is 
ready for more data. The HP 3000 
actually sends two prompt charac- 
ters, usually either a colon(:) or a 
slash(/) followed by an XON charac- 
ter. It is this XON character for 
which the HP-IL/RS-232C Interface 
waits before sending the next line. If 
this option is not enabled when doing 
a file upload, the HP-IL/RS-232C 
Interface will send the next line before 
the HP 3000 is ready, and data will al- 
almost certainly be lost. The “All” 
option is the only mode in which 
the HP-IL/RS-232C Interface is 
enabled to observe a prompt 
character handshake. 


The ‘Both’ option enables both 
Xon/Xoff and Enq/Ack, but not a 
prompt character, while the “None” 
option tells the HP-IL/RS-232C Inter- 
face to ignore all handshakes, and 
not to send any handshake characters. 
The HP 1000 uses both Xon/Xoff and 
Enq/Ack to control the transmission of 
data, so the “Both” option works best. 


Note: The following program is 
available on magnetic card through 
the Users’ Library at a cost of $15.00 
each. Order 71-03000 from: 


Hewlett-Packard 

Users’ Library, Dept. 39UL 
1000 N.E. Circle Blvd. 
Corvallis, OR 97330 
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Line 
# Keystrokes Comment 


10 DESTROY ALL 


20 SFLAG -23 Terminate Enters on EOT. 
30 DIM A$[256],B$[256],K2$[40] 
P3=1 


50 A=DEVADDR(“RS232”) Find the RS-232C interface. 
60 IF A=-1 THEN BEEP «@ DISP ‘No Error not found. 
RS232 interface’ (@ END 


70 F=DEVADDR(“DISPLAY”) Find the display device. 

80 IF F=-1 THEN DELAY 0,0 ELSE Set delay appropriately. 
DELAY 0,INF 

90 PRINTER IS * Print to display only. 

100 PWIDTH 80 Set the printer/display width. 

110 DISP CHR$(27)&“E” Clear the display. 

120 DISP ’HP71B file transfer’ Welcome message. 

130 ON ERROR GOTO 150 

140 CREATE DATA CONFGCOM,;55,20 Create the configuration file. 


150 OFF ERROR 

160 ASSIGN #1 TO CONFGCOM 

170 ON ERROR GOTO 180 @ GOTO 190 

180 OFF ERROR @ BEEP @ DISP “Set Branch to configure for proper 
Configuration” (« WAIT .3 @ GOTO _ host. 


‘CONFIG’ 
190 READ #1,1;H$ Read name of host: either HP 1000 
or HP 3000. 
200 IF H$="1000" THEN H=1 ELSE H=0 Set the host ‘type’ flag. 
210 READ #1,2;S$ Read the baud rate specifier. 
220 READ #1,3;B$ Read the parity select specifier. 
230 READ #41,4;C$ Read the software protocol 
specifier. 
240 OFF ERROR @ GOTO 530 Go and write the control registers. 
250 ‘CONFIG’: This is the “configure” section. 
260 DISP ’Host:1000 or 30007’; Select the host. 
270 ON POS(“13”,KEY$)+ 1 GOTO 
270,280,290 
280 H$="1000” @ H=1 @ GOTO 300 
290 H$=%3000" @ H=0 
300 DISP @ DISP ‘Host Selected: ’;H$ 
310 PRINT #1,1;H$ Store the host type. 
320 DISP @ DISP @ DISP “Select Baud Select the baud rate. 
Rate” 
330 DISP “300 1200 2400 4800 9600”; 
340 ON POS(“31249”, KEY$)+ 1 GOSUB 
1640, 1650, 1660, 1670, 1680, 1690 
350 DISP @ DISP “Selected Baud Rate: 
““S1$ 
360 PRINT #1,2;5$ Store the baud rate. 
370 Bl$=" @ DISP @ DISP @ DISP Select the parity. 
‘Select Parity’ 
380 DISP ‘Parity: Even Odd 0 1 
None’; 
390 ON POS(“EOOIN”,UPRC$(KEY$)) + 1 
GOSUB 1700,1710,1720,1730,1740,1750 
400 DISP @ DISP ‘Parity Selected: 
’;B1$ 
410 PRINT #1,3;B$ Store the parity. 
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Line 
# 


420 
430 


440 


450 
460 


470 
~ 480 
490 
500 


510 
520 


530 
540 
550 
560 


570 
580 


590 


600 
610 


620 
630 
640 


Keystrokes 


DISP @ DISP ‘Select Protocol’ 
DISP ‘Xon/xoff Eng/ack Both None 
All’; 

ON POS(/NXEBA,, UPRC$(KEY$)) + 1 
GOTO 450,460,470,480,490,500 
GOTO 440 

C$=‘C0;’ @ C1$=‘No Protocol’ @ 
GOTO 510 

C$ =‘C0;C2;’ @ C1$=‘Xon/Xoff’ @ 
GOTO 510 

C$='C0;Cl1;’ @ C1$=‘Eng/Ack’ @ 
GOTO 510 

C$ =’C0;C1;C2;’ @ C1$= ‘Both 
Xon/Xoff-Enq/Ack’ @ GOTO 510 
C$ ='C0;C1;C2;C4;’ @& 

C1$ = ‘Xon/off-Enq/Ack—Prompt’ 
DISP @ DISP ‘Protocol: ’;C1$ 
PRINT #1,4;C$ 


G$ = ‘SS0;SW1;L11;L13;R0;R1;° 
REMOTE 


OUTPUT :A USING 
‘K’; ‘SEO; & G$S$&BSK&CS&'R,’; 
LOCAL 


ASSIGN #1 TO * 
K2$=* fl f2 £3 f4 f5 f6 f7 #38 #103” 


DISP «@ DISP ‘Terminal ‘;H$;’ 
Ready...’ 

S=] 

K$=KEY$ @ IF K$#’" THEN 
GOSUB 770 

ENTER :A_ ;A$ 

IF F THEN GOTO 670 

IF A$=CHR$(13) THEN PRINT @ 
GOTO 610 


Comment 


Set the software protocol. 
The ‘All’ option includes prompt 
character. 


Store the software protocol. 


Set the configuration in the 
RS-232C converter. Disable service 
request; set baud, parity, 
protocol, clear buffer. 


Sets 7 data bits, one stop bit, 

DSR true, RTS true. 

Put the RS-232C into remote 
mode for setting configuration. 
Send the configuration 
information. 

Send a not remote enable (nre) 
command to disable remote mode. 
Close CONFGCOM file. 

Create string of recognized special 
characters. 


f1 = Change CONFGCOM file. 

f2 = Upload to host. 

{3 = Download from host. 

f4 = Return to terminal. 

f5 = Toggle printer. 

fo = Toggle video. 

f7 = Send break to host. 

#38 = Endline key sends 
CHR$(13). 

#103 = Send backspace 
CHRS$(8). 

Ready to talk to host. 


If key is pressed then decode 
the key. 
Get data from host. 


Qe spam - 


720 


730 
740 
750 
760 


770 
780 


790 
800 


810 
820 


840 


850 
860 
870 


880 
890 


900 
910 


920 
930 
940 


950 
960 


970 
980 


990 
1000 
1010 
1020 


Keystrokes 

PRINT A$; 

GOTO 610 

FOR I=1 TO LEN(A$) 

IF AS[{LI#’ ° THEN 710 

IF NOT S THEN PRINT ‘7’; @ S=] 


GOTO 750 

IF AS[L,I] =CHR$(10) THEN PRINT 
(@ GOTO 750 

IF A$[LI] =CHR$(7) THEN BEEP «@ 
GOTO 750 

IF AS[LI]}< =CHR$(31) THEN 750 
PRINT A$[LI]; @ S=0 

NEXT I 

GOTO 610 


IF LEN(K$)>1 THEN “KEYCODE” 
OUTPUT :A USING ‘#,K’;K$; @ 
RETURN 


ON ERROR GOTO 800 (@ GOTO 810 
BEEP @ DISP NG; Is A Bad File 
Name’ 

INPUT ’71 Destination Name ?’;N$ 
ASSIGN #3 TO N$ 

OFF ERROR 

IF NOT H THEN 920 


INPUT ‘1000 Source Name ?’;N1$ 
GOSUB 1880 

OUTPUT :A USING 

‘#,K’;’ fi,“&NIS&CHR$(13); 
GOSUB 1770 

OUTPUT :A USING 
‘#,K’;1$L’&CHR$(13); 

ENTER :A ;A$ 

GOTO 980 


INPUT ‘3000 Source Name ?’;N1$ 
GOSUB_ 1950 
OUTPUT :A USING ‘K’;’t ‘&N1$ 


W$=°7/" ( GOSUB 1770 
OUTPUT :A USING ‘K’:‘list all, 
unnumbered’ 

ENTER :A ;A$ 

DISP (@ DISP ‘Receiving Host 
file’; 

BS=" 

ENTER :A ;A$ 

B$ = BS&A$ 

IF KEY$=°f4”" THEN PRINT 
“Transfer Aborted’ (@ RETURN 


Comment 


Check for space. 


Routine to process keys hit while 
in terminal mode. 


Process special keystroke. 
Send the key to host. 


Download a file from the host. 


Branch for bad file. 
Display message. 


Prompt for file name. 


If host is HP 3000 then skip 
HP 1000 portion. 


Run the HP 1000 editor and tell 
the HP 1000 to list the file. 


Gosub to run the HP 1000 editor. 
Get the file. 


Wait for the editor prompt. 
List all lines in the file. 


Read back the echo (‘1$L’). 
Go read and store all lines in the 
file. 


Run the HP 3000 editor. 


Run the editor. 

Make the named file the working 
text file. 

Wait for the HP 3000 to get the file. 
Tell it to send the whole file. 


Read back the echo (‘list all’). 
Display the message. 


Null string for beginning line. 
Enter the string. 

Append to main string. 
Check for abort key. 





Line 


1030 
1040 


1050 


1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 


1140 
1150 


Keystrokes 
IF NOT LEN(B$) THEN 1000 


IF H AND POS(B$,CHR$(13)&“/”) 
THEN PRINT #3;B$[1,LEN(B$)-3] @ 


GOTO 1080 


IF POS(B$,CHR$(10)&“/”) THEN 
PRINT #3;B$[1,LEN(B$)-3] @ GOTO 


1080 


R5 = POS(B$,CHR$(10)) @ IF NOT 


R5 THEN 1000 
PRINT #3;B$[1,R5-2] @ 
B$ = BS[R5+1] @ GOTO 1050 


IF H THEN OUTPUT :A USING 


‘K’;‘A’ @ GOTO 1100 
OUTPUT :A USING ’K’;‘exit’ 
ASSIGN #3 TO * 

DISP @ DISP ‘File Download 
Complete’ @ DISP 

RETURN 


IF P5 THEN PRINTER IS * @ P5=0 
ELSE PRINTER IS :PRINTER @ P5=1 


RETURN 


IF D5 THEN DISPLAY IS * @ D5=0 
(a DELAY 0,0 ELSE DISPLAY IS 
(DISPLAY @ D5=1 @ DELAY 0,INF 


RETURN 


DISP @ INPUT “HP-71 Source 
File:”;N$ 

ON ERROR GOTO 1570 
ASSIGN #3 TO N§$ 

OFF ERROR 

IF H THEN 1400 


DISP @ INPUT ‘3000 Destination 


Name: ’;N1$ 

GOSUB 1950 

OUTPUT :A USING ‘K’;’aq’ 
ON ERROR GOTO 1310 


DISP @ DISP ‘Sending File ’;N$; 


READ #3;A$ 

OUTPUT :A USING ‘K’;A$ 
ENTER :A USING “#,K’;A$ 
GOTO 1270 

OFF ERROR 

ASSIGN #1 TO * 


OUTPUT :A USING ‘K’;CHR§(25) 


W$=‘/ @ GOSUB 1770 
OUTPUT :A USING ‘K’;‘keep 
‘&N1$&’, unnumbered’ 
GOSUB 1770 

OUTPUT :A USING ’K’;‘exit’ 


Comment 





Loop if no length. 
If HP 1000, then check for editor 
prompt. 


Check for HP 3000 editor prompt. 


Check for end of line. 
Write line to file. 
Exit the HP 1000 editor. 


Exit the HP 3000 editor. 
Close the HP-71 file. 
Display message. 


Back to terminal. 
Printer toggle here. 


Display toggle here. 


Upload a file to the host. 
Input file name. 


Error if file not good. 


If host is HP 1000 then skip the 
HP 3000 section. 
This is the HP 3000 section. 


Invoke add-quiet mode. 
Error if end of file. 
Display message. 

Read the file. 

Output to host. 

Enter echoed characters. 


Close the file. 

<Ctrl “Y’> to exit the add-quiet 
mode. 

Wait for editor prompt. 

Store text in text editor file. 


Exit the editor. 


1740 
1750 
1760 
1770 
1780 


1790 
1800 


Keystrokes 


DISP ‘Upload Complete’ @ DISP 
RETURN 

DISP @ INPUT ‘1000 Destination 
Name: ‘;N1$ 

GOSUB 1880 

ON ERROR GOTO 1510 

WS = CHR$(13)&‘/’ 

DISP @ DISP ‘Sending File ’;N$ 
P3=0 

READ #3;A$ 

IF A$[1,1]#’ ” THEN A$=‘ 
OUTPUT :A USING 
‘#,K';A$&CHRS(13); 
GOSUB 1760 

GOTO 1460 

OFF ERROR 

ASSIGN #3 TO * 

P3=1 

OUTPUT :A USING 
‘#,K’;‘ec,/ &NIS&CHRG(13); 
DISP ‘Upload Complete’ @ DISP 
RETURN 

BEEP @ DISP ‘File ’;N$;’ not 

text’ 

OFF ERROR 

RETURN 

SEND UNL UNT LISTEN A DDL 3 
WAIT 2 

SEND UNL UNT LISTEN A DDL 4 
BEEP (@ RETURN 


‘& AGS 


POP @ GOTO 340 

S$ = ‘SB6;’ @ S1$=*300’ @ RETURN 
S$ = ‘SB8;’ @ S1$='1200' @ RETURN 
S$ = ‘SBA;’ @ $1$= ‘2400’ @ RETURN 
S$ = ‘SBC,’ @ S1$=‘4800’ @ RETURN 
S$ =‘SBE;’ @ S1$=’9600’ @ RETURN 
POP @ GOTO 390 

BS =‘PO;SP1;’ G@ B1$=‘Even’ @a 
RETURN 

B$=‘P1;SP1 @ B1$=‘Odd’ @ 
RETURN 

BS =‘P2;5P1;" @ B1$=‘Always 0’ @ 
RETURN 

BS =‘P3;5P1;' @ B1$=‘Always I’ @ 
RETURN 

BS$=‘P4;SWO,’ @ BI$=‘None’ @ 
RETURN 

P2=1 @ GOTO 1780 


P2=0 

ENTER :A ;A$ 

IF NOT LEN(A$) THEN 1830 
PRINT A$; 


Comment 


Display message. 
Return to terminal. 


HP 1000 upload. 


Run the HP 1000 editor. 


Read HP-71 file. 
Force first character to be a space. 
Send it to the HP 1000. 


Wait for prompt. 


Close the file. 
Create the file and exit editor. 


Display message. 
Return to terminal level. 


Set break. 

Hold it !! 

Release break. 

Beep to signal end of break. 


Subroutines to configure system. 
Baud rate. 


Select parity. 


Routine to wait for a specified 
character. 





Hewlett-Packard 

Handheld Products Operation 
1000 N.E. Circle Blvd. 
Corvallis, Oregon 97330 


For additional information, visit your 
nearest HP dealer. For the location and 
number of the dealer nearest you, call 
toll-free 1-800-FOR-HPPC (1-800- 

367- 4772). 
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Keystrokes 


IF H=1 AND POS(A$,W$) THEN 
RETURN 

IF A$[LEN(A$)]=WS$ THEN RETURN 
IF KEY$#“f4” THEN 1780 

PRINT @ PRINT ‘Transfer Aborted’ 
IF P2 THEN POP 

POP 

RETURN 

OUTPUT :A USING ‘K’;’ru,edit’ 
W$ = CHR$(27)&’” (@ GOSUB 1760 
OUTPUT :A USING “#,K” ;CHR$(13); 
GOSUB 1760 

OUTPUT :A USING “#,K” ;CHR$(13); 
W$ = CHRS(13)&’// @ GOSUB 1760 
RETURN 

OUTPUT :A USING ‘K’;’run 

editor. pub.sys’ 

W$=‘/' @ GOSUB 1760 

RETURN 

‘KEYCODE’: 

ON POS(K2S,K$)/4+1 GOTO 2000, 
2010,2020,2030,2040,2050,2060, 
2070,2080,2090 

K$="" @ RETURN 

K$="" @ POP @ ASSIGN #1 TO 
CONFGCOM @ GOTO 260 
K$="" @ GOTO 1170 

K$="" «@ GOTO 810 

K$=“" @ RETURN 

K$=“" @ GOTO 1130 

K$="" @ GOTO 1150 

K$="" «@ GOTO 1600 

K$= CHR$(13) G@ GOTO 780 

K$ = CHR$(8) (| PRINT ‘<’; @ 
GOTO 780 


Comment 


If transfer is to be aborted. 

Do an extra pop if two levels deep. 
Subroutine to run HP 1000 editor. 
Wait for 26xx query. 


Send a carriage return. 


Send a carriage return. 
Wait for editor prompt. 


Subroutine to run HP 3000 editor. 


Special key service routines. 
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